home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_main.scp < prev    next >
Encoding:
Text File  |  1994-12-01  |  4.8 KB  |  230 lines
  1. { MONSTER_MOVE _ATK_RANGE
  2.  
  3.     P        ~Çü  
  4.     P        ~Çé   
  5.     P        ~Çâ    
  6.     P        ~Çä   
  7.  
  8.     ~Çé     = @ÇÖ            
  9.     ~Çâ     = @Ç┤          
  10.     ~Çä     = @Çò           
  11.  
  12.     @Ç¢              ( ENEMY )
  13.  
  14.     ~Çâ     = ~Çâ     + @Ç┤          
  15.  
  16.     ~Çä       = ~Çä    - ~Çâ    
  17.  
  18.     I ( ~Çé    IN -12,12 ) THEN
  19.         {
  20.         I ( ~Çä    <= ~ÇÇ        ) THEN        // ATTACK
  21.             ~Çü   = 0
  22.         E    I ( ~Çä    < 150 ) THEN        // < 1.5 METERS THEN WALK
  23.             ~Çü   = 8
  24.         E   
  25.             ~Çü   = 10;                        // > 1.5 METERS THEN RUN
  26.         }
  27.     E    I ( ~Çé    > 0 ) THEN                // OPPONENT TO THE LEFT
  28.         {
  29.         I ( ~Çä    < 150 ) THEN                // < 1.5 METERS THEN
  30.             {
  31.             ~Çü   = 4                        // TURN LEFT
  32.             }
  33.         E   
  34.             {
  35.             ~Çü   = 4                        // TURN LEFT
  36.             }
  37.         }
  38.     E                                          // OPPONENT TO THE RIGHT
  39.         {
  40.         I ( ~Çä    < 150 ) THEN                // < 1.5 METERS
  41.             {
  42.             ~Çü   = 6                        // TURN RIGHT
  43.             }
  44.         E   
  45.             {
  46.             ~Çü   = 6                        // TURN RIGHT
  47.             }
  48.         }
  49.  
  50.     é      ~Çü  
  51. }
  52.  
  53. { READY_MONSTER_TAUNT        // DO NOT RUN IF A.I. IF OFF!
  54.  
  55.     :LOOP
  56.     â      
  57.     I  @Çô        ("atk_stand") != $Ç╝   THEN
  58.         J    #Çé 
  59.  
  60. }
  61.  
  62. { SLUR_ENEMY_SPEECH( _HANDLE )
  63.  
  64.     P        ~Çü   
  65.     P        ~Çé    
  66.  
  67.     ~Çü     = @Çà    ( 3, 5 )
  68.     ~Çé     = @Çà    ( 3, 5 )
  69.  
  70.     :TOP
  71.     I  @Çû             ( ~ÇÇ     ) THEN
  72.         {
  73.                  ( ~ÇÇ    , -1000 )
  74.         â      
  75.         }
  76.     E   
  77.         é     
  78.     L    #Çä ~Çü   
  79.  
  80.     :MID
  81.     I  @Çû             ( ~ÇÇ     ) THEN
  82.         â      
  83.     E   
  84.         é     
  85.     L    #Çà ~Çé    
  86.  
  87.     :LAST
  88.     I  @Çû             ( ~ÇÇ     ) THEN
  89.         {
  90.                  ( ~ÇÇ    , 1000 )
  91.         â      
  92.         }
  93.     E   
  94.         é     
  95.     L    #Çå  ~Çü   
  96. }
  97.  
  98. { PAUSE_FOR_SUBTITLE
  99.  
  100.     :WAIT_FOR_SUBTITLE
  101.     â      
  102.     I ( @Çó            ( ^ïÜ            ) == $Ç╝   ) THEN
  103.         J    #Çê              
  104. }
  105.  
  106. // PUT IT HERE BECAUSE ITS USED ON SEVERAL LEVELS. - LRG
  107.  
  108. { MECHO_FIRE
  109.     // MECHO WILL FIRE A LASER FROM HIS LIMB NAMED 'GUN'
  110.     Ü            ( 0,0,8, 1 )
  111.                 @Ç╣          BOLTBLU GUN 10 225 (0,0,0)
  112. }
  113.  
  114. // GUARDS NO LONGER TRY TO MOVE THEIR MOUTHS TO SPEAK -KLD
  115. //{ GRD_SPEAK _DURATION
  116. //    APPLY CURFIG DRAWONLY FACE PICTURE 10
  117. //    WAIT _DURATION SECONDS
  118. //}
  119.  
  120. // FOLLOWING ARE LISTED THE POSSIBLE DECALS GUARD CAN HAVE APPLIED
  121. // GRD0PIC.FLC = PICTURE     (THIS IS THE FLIC CONTAINING ALL DECALS)
  122. //   (ORIGINAL TXM MUST BE REDRAWN BEFORE DECAL UNLESS NOTED) (RESTORE) (FISTS)
  123. //   _DMG FLAGS: 2-6 DAMAGE    17 SPEAK/GROWL
  124. //
  125. // TEXTURE           TXM      FRAME   _DMG   DECAL
  126. //                   NAME     #       FLAG
  127. // HAND RIGHT SIDE   LHAND    1              FIST  (REPLACE ORIG TXM)
  128. // HAND RIGHT FRONT  RHAN1    2              FIST  (REPLACE ORIG TXM)
  129. // HAND LEFT SIDE    RHAN     3              FIST  (REPLACE ORIG TXM)
  130. // HAND LEFT FRONT   FLHAN    4              FIST  (REPLACE ORIG TXM)
  131. // CHEST             CHEST    5       2      DAM CHEST A  (ONLY 1 OF A,B,OR C)
  132. // CHEST             CHEST    6       3      DAM CHEST B
  133. // CHEST             CHEST    7       4      DAM CHEST C
  134. // BACK              BACK     8       5      DAM BACK
  135. // FLEGS             FLEGS    9       6      DAM LEGS
  136. // FACE              FACE     10      17     SPEAK
  137.  
  138. { GRD_WOUNDS
  139.     P        ~ÇÇ      
  140.     P        ~Çü 
  141.     P        ~Çé   
  142.     P        ~Çâ    
  143.     P        ~Çä         
  144.     P        ~Çà           
  145.     P        ~Çå   
  146.     P        ~Çç  
  147.  
  148.     ~Çâ     = .ÇéÇà           
  149.  
  150.  
  151.     ~Çü  = .ÇéÇä          
  152.  
  153.  
  154.     ~ÇÇ       = .ÇéÇÇ       
  155.  
  156.     ~Çà            = @Ç»       ( ~Çü , 2, 6 );
  157.     I  ~Çà            > 3 THEN
  158.         ~Çà            = 3
  159.  
  160.     ~Çç   = ( ~Çâ     - ~ÇÇ       )
  161.     ~Çä          = ( ~Çç   / 25 )
  162.     I  ~Çä          > 3 THEN
  163.         ~Çä          = 3
  164.     I  ~Çä          < 1 THEN
  165.         ~Çä          = 0
  166.  
  167.     I  ( ~Çà            < ~Çä          ) THEN
  168.         {
  169.         :TOP
  170.         ~Çå    = @Çà     ( 1, 3 )
  171.         N      ~Çå   
  172.             {
  173.             U    1
  174.                 I  ( @ÇÅ     ( ~Çü , 2 ) || @ÇÅ     ( ~Çü , 3 ) ) || @ÇÅ     ( ~Çü , 4 ) THEN )
  175.                     J    #Çï
  176.                 E   
  177.                     {
  178.                     ~Çé    = @Çà     ( 5, 7)
  179.                     w     CURFIG DRAWONLY CHEST PICTURE ~Çé    GRD       
  180.                     a       ( ~Çü , ~Çé    )
  181.                     }
  182.                 X ÇÇ 
  183.             U    2
  184.                 I  @ÇÅ     ( ~Çü , 5 ) THEN 
  185.                     J    #Çï
  186.                 E   
  187.                     {
  188.                     w     CURFIG DRAWONLY BACK PICTURE 8 GRD
  189.                     a       ( ~Çü , 5 ) 
  190.                     }
  191.                 X ÇÇ 
  192.  
  193.             U    3
  194.                 I  @ÇÅ     ( ~Çü , 6 ) THEN
  195.                     J    #Çï
  196.                 E   
  197.                     {
  198.                     w     CURFIG DRAWONLY FLEGS PICTURE 9 GRD
  199.                     a       ( ~Çü , 6 )
  200.                     }
  201.                 X ÇÇ 
  202.             }
  203.         }
  204. }
  205.  
  206. { GRD_ENTER_COMBAT
  207.          M      ENTER_COMBAT
  208.         w     CURFIG CLEAR LHAND PICTURE 1 GRD
  209.         w     CURFIG CLEAR RHAN1 PICTURE 2 GRD
  210.         w     CURFIG CLEAR RHAN PICTURE 3 GRD
  211.         w     CURFIG CLEAR FLHAN PICTURE 4 GRD
  212. }
  213.  
  214. { GRD_LEAVE_COMBAT
  215.           w     CURFIG RESTORE LHAND X GRD
  216.         w     CURFIG RESTORE RHAN1 X GRD
  217.         w     CURFIG RESTORE RHAN X GRD
  218.         w     CURFIG RESTORE FLHAN X GRD
  219. }
  220.  
  221. { TURN_WHILE_FIRING
  222.     :KEEP_TURNING
  223.     â      
  224.     T    @ÇÖ            ()
  225.     I  @Çô        (FIRE_GUN) THEN J    #ÇÅ         
  226. }
  227.  
  228.  
  229. //$ 26 - version number
  230.